﻿Public Class LandschaftstexturPline
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "PLINE"
        Landschaftsname = "Pipeline"
        Deckung = 0
        Tarnung = False
        KP = -1
        TexturenLaden(New String() {"PLINE+O+W", "PLINE+S+W", "PLINE+O+S", "PLINE+O+S+W", "PLINE+N+W", "PLINE+N+S", "PLINE+N+S+W", "PLINE+N+O", "PLINE+N+O+W", "PLINE+N+O+S", "PLINE+N", "PLINE+O", "PLINE+S", "PLINE+W", "PLINE+N+O+S+W"})
        Normal = 0
        Ausrichtungslandschaften = New String() {"PIPELINE", "SCHWEIßNAHT", "KAPUTTESCHWEIßNAHT", "PLINEKAPUTT", "PLINE", "PIPE", "PIPESCHWEIß", "KAPUTTEPIPESCHWEIß", "PLINESCHWEIß", "PIPESTATION", "FABRIK"}
        ÜbergängeLaden("Schnee")
    End Sub

    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer) As Boolean
        Select Case My.Settings.TerrainStyle
            Case TerrainStyle.CommanderWars2, TerrainStyle.AdvanceWarsDC
                Return DrawSchneeUndTerrain(Alpha, Fog, BildID, X, Y, False)
            Case Else
                Return False
        End Select
    End Function

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub
End Class
